#lang racket


(require "nodes.rkt")
(require (prefix-in cons. "constructors-cache.rkt"))


(provide pipe)


(define (pipe inner-radius outer-radius height)
  (cons.subtract
   (cons.cylinder outer-radius height)
   (cons.cylinder inner-radius height)))